home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / mdishe / fabout.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-12-28  |  4.3 KB  |  127 lines
  1. VERSION 2.00
  2. Begin Form fAbout 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "About"
  6.    ClientHeight    =   1905
  7.    ClientLeft      =   3465
  8.    ClientTop       =   3435
  9.    ClientWidth     =   5970
  10.    ControlBox      =   0   'False
  11.    ForeColor       =   &H00000000&
  12.    Height          =   2310
  13.    Left            =   3405
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   1905
  18.    ScaleWidth      =   5970
  19.    Top             =   3090
  20.    Width           =   6090
  21.    Begin CommandButton Command1 
  22.       Caption         =   "OK"
  23.       Height          =   315
  24.       Left            =   2580
  25.       TabIndex        =   3
  26.       Top             =   1440
  27.       Width           =   795
  28.    End
  29.    Begin Label lblEval 
  30.       BackColor       =   &H0000FFFF&
  31.       BorderStyle     =   1  'Fixed Single
  32.       Caption         =   "This is an evaluation copy.  See Help for ordering information."
  33.       ForeColor       =   &H00000000&
  34.       Height          =   255
  35.       Left            =   120
  36.       TabIndex        =   2
  37.       Top             =   1080
  38.       Visible         =   0   'False
  39.       Width           =   5685
  40.       WordWrap        =   -1  'True
  41.    End
  42.    Begin Label lblVer 
  43.       Alignment       =   2  'Center
  44.       AutoSize        =   -1  'True
  45.       BackColor       =   &H00C0C0C0&
  46.       Caption         =   "Ver x.x"
  47.       ForeColor       =   &H00000000&
  48.       Height          =   195
  49.       Left            =   120
  50.       TabIndex        =   1
  51.       Top             =   720
  52.       Width           =   5685
  53.    End
  54.    Begin Label lblAppName 
  55.       Alignment       =   2  'Center
  56.       BackColor       =   &H00C0C0C0&
  57.       Caption         =   "App Name"
  58.       FontBold        =   -1  'True
  59.       FontItalic      =   0   'False
  60.       FontName        =   "MS Sans Serif"
  61.       FontSize        =   24
  62.       FontStrikethru  =   0   'False
  63.       FontUnderline   =   0   'False
  64.       ForeColor       =   &H00800000&
  65.       Height          =   555
  66.       Left            =   120
  67.       TabIndex        =   0
  68.       Top             =   120
  69.       Width           =   5685
  70.    End
  71. ' ********************************************************
  72. '        MDI Standard Application Shell
  73. ' ********************************************************
  74. ' SUMMARY
  75. ' -------
  76. ' This file is part of an MDI application "skeleton"
  77. ' created by John Blessing of Leigh Business Enterprises Ltd.
  78. ' FEATURES
  79. ' --------
  80. ' Selection of application database.
  81. ' Compact/Repair of database.
  82. ' 'Helptips' on toolbar items.
  83. ' Support for Help files.
  84. ' MDI child forms tiling etc.
  85. ' Error trapping.
  86. ' 'Nag' screen support for shareware authors.
  87. ' Support for 3D dialogs (switched off in design mode
  88. '   to prevent GPFs)
  89. ' USE
  90. ' ---
  91. ' You need VB Pro to use this shell, although it could be
  92. ' modified to run under the standard edition.
  93. ' You will need to set up some information in APP.BAS,
  94. ' particularly in SetAppInfo().  You will also need to add
  95. ' your own application specific code to this module.
  96. ' DISTRIBUTION
  97. ' ------------
  98. ' This program is "FreeWare" and may be used and distributed
  99. ' as you wish.
  100. ' It incorporates some ideas/code from other authors and these
  101. ' are acknowledged in the appropriate module.
  102. ' We hope that you will find it useful.  If you wish to discuss it
  103. ' then please e-mail us on Compuserve 100444,623.
  104. ' ADVERTISEMENT!
  105. ' --------------
  106. ' Are you looking for a helpdesk system? Or does your company
  107. ' want to track and monitor the progress of any work activity?
  108. ' We market a system which could be of interest to you.
  109. ' PROGRESS is available for download from the Business section
  110. ' of the Windows Shareware forum on Compuserve
  111. ' (filename PRGRSS10.ZIP).  It's a large program, so in the
  112. ' same section you will also find the help files and
  113. ' documentation as  PRGSSDOC.ZIP which is quicker to download
  114. ' and will give you a good idea of the functionality of PROGRESS.
  115. ' Dec 1994
  116. Option Explicit
  117. Sub Command1_Click ()
  118.     Unload Me
  119. End Sub
  120. Sub Form_Load ()
  121.     Caption = "About " & tGApp.sName
  122.     lblVer.Caption = "Ver " & CStr(tGApp.dVersion)
  123.     lblAppName = tGApp.sName
  124.     If tGApp.bEvaluation Then lblEval.Visible = True
  125.     centre Me, mdiMain
  126. End Sub
  127.